home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / jpi / snddefed.bas < prev    next >
BASIC Source File  |  1998-01-10  |  2KB  |  64 lines
  1. Attribute VB_Name = "Module1"
  2. Type snDfs
  3.   filename As String
  4.   tracktitle As String
  5. End Type
  6. Global Soundfiles(100) As snDfs
  7. Global MaxSoundFiles As Integer
  8. Sub Load()
  9. MaxSoundFiles = 0
  10. Open "Sound.Dat" For Input As #1
  11. Do
  12.   Line Input #1, a$
  13.   If a$ = "[ENDOFFILE]" Then Exit Do
  14.   If a$ = "[SOUNDDEF]" Then
  15.     Soundfilenum = Soundfilenum + 1
  16.     Line Input #1, a$
  17.     propvalue$ = GetPropertyValue(a$)
  18.     Soundfiles(Soundfilenum).tracktitle = propvalue$
  19.     Line Input #1, a$
  20.     propvalue$ = GetPropertyValue(a$)
  21.     Soundfiles(Soundfilenum).filename = propvalue$
  22.   End If
  23. Loop
  24. Close #1
  25. MaxSoundFiles = Soundfilenum
  26. End Sub
  27. Sub Save()
  28.  
  29. Open "Sound.Dat" For Output As #1
  30. Print #1, "ION FORMAT VERSION: 1.0"
  31.   For i = 1 To MaxSoundFiles
  32.     Print #1, "[SOUNDDEF]"
  33.     Print #1, "Name: " & Soundfiles(i).tracktitle
  34.     Print #1, "FileName: " & Soundfiles(i).filename
  35.     Print #1, "[ENDMUSICDEF]"
  36.   Next i
  37. Print #1, "[ENDOFFILE]"
  38. Close #1
  39. End Sub
  40. Public Function GetPropertyValue(TextString) As String
  41. GetPropertyValue = Right$(TextString, Len(TextString) - InStr(1, TextString, " "))
  42. End Function
  43. Public Function GetPropertyName(TextString) As String
  44. If InStr(1, TextString, " ") = 0 Then
  45.   GetPropertyName = TextString
  46. Else
  47.   GetPropertyName = Left$(TextString, InStr(1, TextString, " ") - 1)
  48. End If
  49. End Function
  50. Sub UpdateList()
  51. Currindex = Form1.List1.ListIndex
  52. Form1.List1.Clear
  53. Form1.List1.AddItem "[NewSoundDef]"
  54. For i = 1 To MaxSoundFiles
  55.   Form1.List1.AddItem Soundfiles(i).tracktitle
  56. Next i
  57. Form1.List1.ListIndex = Currindex
  58. End Sub
  59. Sub UpdateProperties()
  60. mnum = Form1.List1.ListIndex
  61. Form1.Text1.Text = Soundfiles(mnum).tracktitle
  62. Form1.Text2.Text = Soundfiles(mnum).filename
  63. End Sub
  64.